(generate-calendar-month): Make highlighted text for mouse-2 a full column (2

chars) wide, even for single-digit dates.

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 18e9dbee947037a3823f6a6b5f0682913c8dfb8e..2cf4dc76f928bfba8024f9625af2e2ac53c44ee8 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1407,8 +1407,7 @@ characters on the line."
    ;; Put in the days of the month
    (calendar-for-loop i from 1 to last do
       (insert (format "%2d " i))
-      (put-text-property (- (point) (if (< i 10) 2 3)) (1- (point))
-                        'mouse-face 'highlight)
+      (put-text-property (- (point) 3) (1- (point)) 'mouse-face 'highlight)
       (and (zerop (calendar-mod (+ i blank-days) 7))
            (/= i last)
            (calendar-insert-indented "" 0 t)    ;; Force onto following line